home *** CD-ROM | disk | FTP | other *** search
/ Mission to McDonaldLand / Mission To McDonaldLand.iso / calnz.dxr / 00076_Script_AN < prev    next >
Text File  |  1998-10-25  |  3KB  |  86 lines
  1. on testit
  2.   global screen1,screen2
  3.   killall(screen1)
  4.   
  5.   loadimage(screen1,"dale1","c:\tmpdir\","beach.bmp",point(20,20),0,false)
  6.   loadimage(screen1,"dale2","c:\tmpdir\","boats.bmp",point(150,20),0,false)
  7.   loadimage(screen1,"dale3","c:\tmpdir\","theport.bmp",point(20,120),0,false)
  8.   loadFilmLoop(screen1,"film4",0,-1,[37,38,39,40,41],point(520,200),0)
  9.   
  10. end
  11. on test
  12.   global screen1,screen2
  13.   
  14.   
  15.   loadimage(screen1,"dale1","#",29,point(20,20),0,false)
  16.   loadimage(screen1,"dale2","#",30,point(150,20),0,false)
  17.   loadimage(screen1,"dale3","#",31,point(20,120),0,false)
  18.   loadFilmLoop(screen1,"film4",0,10,[37,38,39,40,41],point(520,200),0)
  19.   
  20. end
  21.  
  22. on s2
  23.   global screen1,screen2,thismovie,ti,fl1,ast
  24.   set ti=loadimage(screen2,"dale1","#",41,point(0,0),0,false)
  25.   --  set --fl1=loadFilmLoop(screen2,"film1",10,40,[37,38,39,40,41],point(300,200),8,VOID,VOID,VOID,"supercom","B--limpy","CallmeBack")
  26.   --  loadFilmLoop(screen2,"film2",10,-1,[37,38,39,40,41],point(330,260),0)
  27.   --  loadFilmLoop(screen2,"film3",10,-1,[37,38,39,40,41],point(390,400),0)
  28.   set thismovie = LoadMovie (screen2,"movie1","c:\temp\","aerial.mov",point(20,20),FALSE,255,VOID,TRUE,FALSE,"DoWhenFinished")
  29.   set tmpBtn = addbutton(VOID,"bn","br","bd",[200,30],"","NULL","offyougo","norm","rollnorm","unrollnorm",screen2,"button1")
  30.   setbutton(tmpbtn)
  31.   
  32.   set btnAnim = LoadBtnAnim(screen2,"animBtn",VOID,"AN",[10,300],"","NULL","dowhenFinished","rollNorm",¼
  33. "unrollnorm",0,-1,[48,49,50],0,VOID)
  34.   set ast = loadAstor(screen2,"Astor")
  35.   updatestage
  36. end
  37. on changeReg sc,ec
  38.   repeat with i = sc to ec
  39.     set the regpoint of member i = the regpoint of member i + point(0,5)
  40.   end repeat
  41. end
  42.  
  43. on DoWhenFinished
  44.   alert "hiya"
  45. end
  46. on callmeback
  47.   global thismovie,fl1
  48.   playmovie(thismovie)
  49.   loopbetween(fl1,3,4)
  50. end
  51.  
  52. on offyougo
  53.   global thismovie
  54.   playmovie(thismovie)
  55. end
  56.  
  57. on dotext
  58.   repeat with i = 1 to 31
  59.     duplicate member 98, 98 +i
  60.     set the text of member 98+i = string(i+1)
  61.   end repeat
  62. end dotext
  63.  
  64. on dotext2
  65.   repeat with i = 1 to 31
  66.     
  67.     set the name of member 98+i =string(IntTostr( i+1))
  68.   end repeat
  69. end dotext2
  70.  
  71. on dotext3
  72.   repeat with i = 98 to 129
  73.     new(#field,member (i+60))
  74.     set the name of member i+60 = the name of member i
  75.     set the text of member i +60= the text of member i
  76.   end repeat
  77. end
  78.  
  79. on dorename
  80.   set x = 0
  81.   repeat with i = 98 to 128
  82.     set x = x+2
  83.     set the name of member (144+x) = the name of member i&"*"
  84.   end repeat
  85. end doRename
  86.